www.gusucode.com > 威博多用户网上购物商城(生成html) 6 > 威博多用户网上购物商城(生成html) 6.2/威博多用户/compare.asp
<%@ LANGUAGE ="VBScript" CodePage="65001"%>
<!--#include file="inc/inc.asp"-->
<!--#include file="nnoo.ini"-->
<!--#include file="inc/conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>商品对比-<%=Web_C_webtitle%>-<%=Web_C_sitename%></title>
<link href="css/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin=0 topmargin=0 marginwidth=0 marginheight=0 class="background">
<STYLE type=text/css>
#dhtmltooltip {
font-size: 9pt;BORDER-RIGHT: gray 1px solid; PADDING-RIGHT: 4px; BORDER-TOP: gray 1px solid; PADDING-LEFT: 4px; Z-INDEX: 100; FILTER: progid:DXImageTransform.Microsoft.Shadow(color=gray,direction=120); VISIBILITY: hidden; PADDING-BOTTOM: 4px; BORDER-LEFT: gray 1px solid; WIDTH: 150px; PADDING-TOP: 4px; BORDER-BOTTOM: gray 1px solid; POSITION: absolute; BACKGROUND-COLOR: #cccccc
}
</STYLE>
<div id='dhtmltooltip' height=250 width=250><img src=""/></div>
<script language="javascript" src="/js/jump.js"></script>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="bottom"><table width="100%" height="70" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="bottom"><img src="<%=split(getonevalue("web_webconfig","w_logo","id=1"),"|")(0)%>"></td>
</tr>
</table></td>
</tr>
<tr>
<td height="1" bgcolor="#CCCCCC"></td>
</tr>
<tr>
<td align="center" bgcolor="#f7f7f7" height=25><table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td><font color="#FF6600" height=25><%=getonevalue("web_webconfig","w_webname","id=1")%>：<a href="index.html"><font color="#FF6600">首页</font></a> > 产品对比</font></td>
</tr>
</table></td>
</tr>
</table>
<%
'从form中获得id编号
if request("id")="" then
tid=request("ProductIDs")
pid=split(request("ProductIDs"),",")
pid=split(tid,",")
tcount=ubound(pid)+1
if tcount<=1 then
call Web_C_ReMessage("至少选择2个商品进行比较！",2,"")
end if
else '从request中获取编号
ptid=split(request("ProductIDs"),",")
for mm=0 to ubound(ptid)
if int(ptid(mm))<>int(request("id")) then
strid=strid&","&ptid(mm)
end if
next
tid=replace(trim(strid),",","",1,1)
pid=split(tid,",")
tcount=ubound(pid)+1
if tcount<=1 then
call Web_C_ReMessage("至少有两个商品进行比较！",3,"")
end if
end if
conndb
set rs=server.createobject("adodb.recordset")
sql="select P_PID,p_name,p_pphoto,p_brand,P_MemberPrice,p_score,p_myproperty,shopid,id,P_MarketPrice,P_viewnum,P_classid,P_Weight,P_Stock,P_volumn from web_product where id in ("&tid&")"
'response.write sql
rs.open sql,conn
if rs.eof then
call Web_C_ReMessage("商品不存在！",3,"")
end if
iRS=rs.getrows
tmparr=split("商品编号,商品名称,商品图片,购买,商品价格,市场价,商城价,节省了,基本信息,商品分类,商品品牌,赠送积分,商品重量,商品属性,点击次数,店铺信息,店铺名称,店主名称,所在地,联系电话,联系手机,联系QQ,联系旺旺,访问次数,开店时间",",")
%>
<table border="0" cellpadding="0" cellspacing="1" width="100%" bgcolor="#CCCCCC" id="comparetable" >
<tr>
<td width="150" height="22" align="center" bgcolor="#333333"><div style="width:150px; color:#ffffff"><b>- 商品对比 -</b></div></td>
<% for tt=0 to Ubound(pid)%>
<td width="2" background="images/vpro/morebg.gif"></td>
<td align="center" background="images/vpro/morebg.gif" bgcolor="#333333"><div style="width:200px"><a href="javascript:CompareGood('<%=trim(pid(tt))%>','<%=trim(tid)%>');"><font color="#FFFFFF">[ 移除此项 ]</font></a></div></td>
<%next%>
</tr>
<%for i=0 to 24%>
<tr bgcolor="<%if i=1 or i=4 or i=8 then%>#F1F1F1<%else%>#ffffff<%end if%>" >
<td height="30" bgcolor="#eeeeee" align="center"> <table width="100" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="6"><img src="images/category/key2a.gif" width="6" height="18"></td>
<%if i=4 or i=8 or i= 15 then %>
<td align="center">
<strong><font color="#FF6600">- <%=tmparr(i)%>-</font></strong></td>
<%else%>
<td align="center">
<strong><font color="#333333"> <%=tmparr(i)%> </font></strong></td>
<%end if%>
<td width="8"><img src="images/category/key2c.gif" width="6" height="18"></td>
</tr>
</table></td>
<%For jj=0 To Ubound(iRs,2)%>
<td align="center" width="1" id="td<%=i%>" bgcolor="#FFFFFF" background="cimg/announcebar.gif"><img src="cimg/announcebar.gif" width="1" height="1"></td>
<%if i=0 then%>
<td align="center" bgcolor="#FFFFFF"><%=irs(0,jj)%></td>
<%elseif i=1 then%>
<td align="center" bgcolor="#FFFFFF" valign="top" style="padding:7px"><font color="#000000"><%=irs(1,jj)%></font></td>
<%elseif i=2 then%>
<%
if irs(2,jj)="" or isnull(irs(2,jj))=true then
spicsize=split("0|0","|")
elseif instr(lcase(irs(2,jj)),"http://")>0 then
spicsize=split("80|80","|")
else
'spicsize=split(getspicsize(iRS(2,jj),80,80),"|")
spicsize=split("80|80","|")
end if
%>
<td align="center" bgcolor="#FFFFFF" valign="top" style="padding:3px"><img src="<%=iRS(2,jj)%>" width="<%=spicsize(0)%>" height="<%=spicsize(1)%>" onMouseOver="javascript:ddrivetip('<img width=224 src=<%=iRS(i,jj)%>>','#ffffff', 224)" onMouseOut="hideddrivetip()"></td>
<%elseif i=3 then%>
<td align="center" bgcolor="#FFFFFF"><a href="<%=Web_C_setupfolder%>cart/mycart.asp?action=add&mount=1&pid=<%=irs(8,jj)%>" target=_blank><img src="<%=Web_C_setupfolder%>images/vpro/gm1.jpg" border="0"></a></td>
<%elseif i=4 then%>
<td align="center" bgcolor="#F1F1F1"></td>
<%elseif i=5 then%>
<td align="center" bgcolor="#FFFFFF">￥<%=irs(9,jj)%></td>
<%elseif i=6 then%>
<td align="center" bgcolor="#FFFFFF" height="40"><b style="color:#ff6600">￥<%=irs(4,jj)%></b></td>
<%elseif i=7 then%>
<td align="center" bgcolor="#FFFFFF" style="color:#cc0000">￥<%=(irs(9,jj)-irs(4,jj))%></td>
<%elseif i=8 then%>
<td align="center" bgcolor="#F1F1F1"></td>
<%elseif i=9 then%>
<td align="center" bgcolor="#FFFFFF"><%=getonevalue("web_proclass","name","id="&irs(11,jj)&"")%></td>
<%elseif i=10 then%>
<td align="center" bgcolor="#FFFFFF"><%=getonevalue("web_brand","b_name","id="&irs(3,jj)&"")%></td>
<%elseif i=11 then%>
<td align="center" bgcolor="#FFFFFF"><%=irs(5,jj)%></td>
<%elseif i=12 then%>
<td align="center" bgcolor="#FFFFFF"><%=irs(12,jj)%>Kg</td>
<%elseif i=13 then%>
<td align="center" bgcolor="#FFFFFF" valign="top" style="padding:7px"><%=Web_dealproperty(irs(6,jj))%></td>
<%elseif i=14 then%>
<td align="center" bgcolor="#FFFFFF"><%=irs(10,jj)%>次</td>
<%elseif i=15 then%>
<td align="center" bgcolor="#F1F1F1"></td>
<%elseif i=16 then%>
<td align="center" bgcolor="#FFFFFF"><a href="<%=Web_C_setupfolder%>shop/<%=irs(7,jj)%>/index.html" target="_blank"><%=getonevalue("web_shop","s_name","s_shopid='"&irs(7,jj)&"'")%></a></td>
<%elseif i=17 then%>
<td align="center" bgcolor="#FFFFFF"><%=getonevalue("web_shop","S_master","s_shopid='"&irs(7,jj)&"'")%></td>
<%elseif i=18 then%>
<td align="center" bgcolor="#FFFFFF"><%v_S_Province=getonevalue("web_shop","S_Province","s_shopid='"&irs(7,jj)&"'")%>
<%=nolevel_showarea("web_area_comm",v_S_Province,1)%></td>
<%elseif i=19 then%>
<td align="center" bgcolor="#FFFFFF"><%=getonevalue("web_shop","S_Call","s_shopid='"&irs(7,jj)&"'")%></td>
<%elseif i=20 then%>
<td align="center" bgcolor="#FFFFFF"><%=getonevalue("web_shop","S_Phone","s_shopid='"&irs(7,jj)&"'")%></td>
<%elseif i=21 then%>
<td align="center" bgcolor="#FFFFFF" valign="top" style="padding:7px"><%=web_getqq(irs(7,jj))%></td>
<%elseif i=22 then%>
<td align="center" bgcolor="#FFFFFF"><%=Web_getww(irs(7,jj))%> </td>
<%elseif i=23 then%>
<td align="center" bgcolor="#FFFFFF">该店铺共访问<%=getonevalue("web_shop","S_Visitcount","s_shopid='"&irs(7,jj)&"'")%>次</td>
<%elseif i=24 then%>
<td align="center" bgcolor="#FFFFFF"><%=getonevalue("web_shop","S_Regtime","s_shopid='"&irs(7,jj)&"'")%></td>
<%else%>
<td align="center" bgcolor="#ffffff"></td>
<%end if%>
<% next%>
<%next%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="1" bgcolor="#CCCCCC"></td>
</tr>
<tr>
<td bgcolor="#f7f7f7"> </td>
</tr>
<tr>
<td height="1" bgcolor="#CCCCCC"></td>
</tr>
<tr>
<td><table width="760" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td align="center"><%=GetOneValue("Web_webconfig","W_copyright","id=1")%></td>
</tr>
</table></td>
</tr>
</table>
<%
Function Web_dealproperty(v_property)
if isnull(v_property)=true then exit function
v_property=replace(v_property,"1&","")
v_property=replace(v_property,"0&","")
v_property=replace(v_property,"&","")
v_property=replace(v_property,"@@","：")
v_property=replace(v_property,"|",",")
v_property=replace(v_property,"$$","<br>")
Web_dealproperty=v_property
End Function
Function Web_getqq(shopid)
set qq=conn.execute("select number,name from Web_Chats where shopid='"&shopid&"' and type=0 and flag=1")
if not qq.eof then
do while not qq.eof
web_qq_string=web_qq_string&"<a target=blank href='tencent://message/?uin="&trim(qq("number"))&"&Menu=yes'><img border='0' SRC='http://wpa.qq.com/pa?p=1:"&trim(qq("number"))&":1' alt='"&trim(qq("name"))&"'></a>"&"<br>"
qq.movenext
loop
end if
qq.close
web_getqq=web_qq_string
End Function
Function Web_getww(shopid)
set rs_wangwang=conn.execute("select number,name from Web_Chats where shopid='"&shopid&"' and type=3 and flag=1")
if not rs_wangwang.eof then
do while not rs_wangwang.eof
web_qq_string=web_qq_string&"<A href='http://amos1.taobao.com/msg.ww?v=2&uid="&trim(rs_wangwang("number"))&"&s=1' target=_blank><IMG src='http://amos1.taobao.com/online.ww?v=2&uid="&trim(rs_wangwang("number"))&"&s=1' border=0 alt='"&trim(rs_wangwang("name"))&"'></A>"&"<br>"
rs_wangwang.movenext
loop
end if
rs_wangwang.close
Web_getww=web_qq_string
End Function
%>
<script>
function CompareGood(ID,ck)
{
location.href='<%=Web_C_setupfolder%>compare.asp?id='+ID+'&ProductIDs='+ck+'';
}
</script>
</body>
</html>